home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 11, No. 09 (1990-09)(MindCraft Publishing)(Side A).zip / Nibble Volume 11, No. 09 (1990-09)(MindCraft Publishing)(Side A).po / USR.DEMO2.bas < prev    next >
BASIC Source File  |  1996-12-24  |  609b  |  18 lines
  1. 1  REM   ******************************
  2. 2  REM   * USR.DEMO2                  *
  3. 3  REM   * BY MARK CRAVEN             *
  4. 4  REM   * COPYRIGHT(C) 1990          *
  5. 5  REM   * MINDCRAFT PUBL. CORP.      *
  6. 6  REM   * CONCORD, MA 01742          *
  7. 7  REM   ******************************
  8. 10  PRINT  CHR$(4);"BLOAD USR2"
  9. 20  POKE 10,76: POKE 11,0: POKE 12,3
  10. 30  HOME : VTAB 10
  11. 40  INPUT "ENTER A NUMBER 1-200 (0 TO QUIT)  ->";A
  12. 50  IF A = 0  THEN  END 
  13. 60  IF A >200  THEN 30
  14. 70 B =  USR(A): REM  EXECUTE USR()
  15. 80  PRINT : PRINT B
  16. 90  PRINT : PRINT "PRESS ANY KEY..."
  17. 100  WAIT  -16384,128: POKE  -16368,0
  18. 110  GOTO 30